home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / secretno.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.0 KB  |  88 lines
  1. 100  CLS
  2. 110  A$=STRING$(80,205)
  3. 120  PRINT A$
  4. 130  PRINT TAB(33)"SECRET NUMBER"
  5. 140  COLOR 23,0,0
  6. 150  COLOR 7,0,0
  7. 160  PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  8. 170  PRINT :PRINT :PRINT TAB(19)"p.o.box 10426, pittsburgh, pennsylvania 15234"
  9. 180  PRINT A$
  10. 190  PRINT :PRINT :PRINT :PRINT :PRINT
  11. 200  PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  12. 210  A$=INKEY$:IF A$="" THEN 210
  13. 220  CLS
  14. 230  A$=STRING$(80,176)
  15. 240  B$=STRING$(80,205)
  16. 250  C$=STRING$(80,2)
  17. 260  PRINT A$
  18. 270  PRINT B$
  19. 280  PRINT TAB(33)"SECRET NUMBER"
  20. 290  PRINT
  21. 300  PRINT TAB(18)"TRANSLATED BY IPCO TO IBM BASICA FOR THE PC"
  22. 310  PRINT:PRINT:PRINT
  23. 320  PRINT "PRESS ANY KEY TO CONTINUE"
  24. 330  A$=INKEY$:IF A$="" THEN 330
  25. 340  CLS
  26. 350  PRINT B$
  27. 360  PRINT "GREETINGS!  THIS IS THE GAME OF SECRET NUMBERS."
  28. 370  PRINT B$
  29. 380  PRINT
  30. 390  INPUT "BEFORE WE START, PLEASE TELL ME YOUR NAME";NAM$
  31. 400  CLS
  32. 410  PRINT "O.K. ";NAM$;" THESE ARE THE RULES..."
  33. 420  PRINT B$
  34. 430  PRINT :PRINT "FIRST YOUR MUST ENTER A LIMIT...."
  35. 440  PRINT :PRINT "SECOND, I WILL THINK OF A SECRET NUMBER BETWEEN 1 AND YOUR LIMIT."
  36. 450  PRINT :PRINT "THEN ENTER YOUR GUESS AND I WILL TELL YOU IF IT IS HIGH OR LOW."
  37. 460  PRINT :PRINT"THEN YOU CAN KEEP GUESSING UNTIL YOU GET THE SECRET NUMBER."
  38. 470  PRINT B$
  39. 480  PRINT "PRESS ANY KEY TO CONTINUE"
  40. 490  A$=INKEY$:IF A$="" THEN 490
  41. 500  CLS
  42. 510  RANDOMIZE
  43. 520  MSG1$="SECRET NUMBER IS"
  44. 530  MSG2$="YOUR NUMBER"
  45. 540  CLS
  46. 550  INPUT "ENTER LIMIT ";LIMIT
  47. 560  FOR X=1 TO 20
  48. 570  IF LIMIT<2^X THEN 600
  49. 580  NEXT X
  50. 590  P
  51. 600  PRINT "YOU SHOULD GUESS THE SECRET NUMBER IN NO MORE THAN ";X;"TRIES."
  52. 610  SECRET=INT(LIMIT*RND)+1
  53. 620  PRINT
  54. 630  N=N+1
  55. 640  PRINT
  56. 650  INPUT "GUESS: " ;GUESS
  57. 660  IF SECRET=GUESS THEN 730
  58. 670  IF SECRET<GUESS THEN 690
  59. 680  IF SECRET>GUESS THEN 710
  60. 690  PRINT MSG1$;" LESS THAN ";MSG2$
  61. 700  GOTO 630
  62. 710  PRINT MSG1$;" LARGER THAN ";MSG2$
  63. 720  GOTO 630
  64. 730  PRINT "YOU GUESSED THE SECRET MUMBER IN ";N;" TRIES"
  65. 740  IF N>X THEN 910
  66. 750  Y=110*(2^(1/12))^(4*T)
  67. 760  INPUT "WANT TO PLAY AGAIN (Y OR N)";D$
  68. 770  IF D$<>"Y" THEN 870
  69. 780  N=0
  70. 790  PRINT
  71. 800  PRINT "ARE YOU PLAYING AGAIN ";NAM$;"?"
  72. 810  INPUT "ENTER Y OR N";D$
  73. 820  IF D$="N" THEN 350
  74. 830  CLS
  75. 840  PRINT "LIMIT IS ";LIMIT;" WANT TO SET A NEW LIMIT?"
  76. 850  INPUT "ENTER Y OR N";D$
  77. 860  IF D$="Y" THEN 540 ELSE 610
  78. 870  CLS
  79. 880  PRINT B$
  80. 890  PRINT TAB(26)"THANK YOU FOR THE GAME..."
  81. 900  END
  82. 910  PRINT :PRINT :PRINT "THAT'S NOT A VERY GOOD SCORE AT ALL ";NAM$;"!!!"
  83. 920  FOR DEL=1 TO 1500
  84. 930  NEXT DEL
  85. 940  PRINT "PERHAPS YOU WILL IMPROVE WITH PRACTISE."
  86. 950  GOTO 760
  87. 960  CLS
  88.